TSIS is an R package for detecting transcript isoform switch for time-series data. Transcript isoform switch occurs when a pair of isoforms reverse the order of expression levels as shown in Figure 1.
TSIS characterizes the transcript switch by 1) defining the isoform switch time points for any pair of transcript isoforms within a gene, 2) describing the switch using 5 different features, 3) filtering the results with user’s specifications and 4) visualizing the results using different plots for the user to examine further details of the switches. All the functions are available in the forms of a graphic interface implemented by Shiny App (a web application framework for R) (Chang, et al., 2016), in which users can implement the analysis as easy as mouse click. The tool can also be run just in command lines without graphic interface. This tutorial will cover both in the following sections.
Given that a pair of isoforms \(iso_i\) and \(iso_j\) may have a number of switches in a time-series, we have offered two approaches to search in TSIS:
After switch points are determined, we define each switch by 1) the switch point \(P_i\) , 2) time points between switch points \(P_{i-1}\) and \(P_i\) as interval before switch \(P_i\) and 3) time points between switch points \(P_i\) and \(P_{i+1}\) as interval after the switch \(P_i\) (see Figure 1(B)) We defined 5 features to score each isoform switch. The first two are the probability/frequency of switch and the sum of average distance before and after switch, used as Score 1 and Score 2 in iso-kTSP method (Sebestyen, et al., 2015) (see Figure 1(A))).
Feature 3 is the p-value of paired t-test for the two isoform sample differences within each interval. The dependency R function for testing is t.test(), i.e. \[F_3 (iso_i,iso_j |I_k )=pval⇐t.test(x=iso_i \text{ samples in } I_k,y=iso_j \text{ samples in } I_k,paired=TRUE)\] Where \(k=1,2\) represent the indices of the intervals before and after switch.
Feature 5 is the Pearson correlation of two isoforms, i.e. \[F_5 (iso_i,iso_j )=cor(\text{samples of } iso_1,\text{samples of } iso_2 )\]
Due to an issue with devtools, if R software is installed in a directory whose name has space character in it, e.g. in “C:\Program Files”, users may get error message “‘C:\Program’ is not recognized as an internal or external command”. This issue has to be solved by making sure that R is installed in a directory whose name has no space characters. Users can check the R installation location by typing
R.home()
install.packages(c(“shiny”, “shinythemes”,“ggplot2”,“plotly”,“zoo”,“gtools”,“devtools”), dependencies=TRUE)
Install iso-kTSP package from Github using devtools package.
library(devtools)
devtools::install_github("wyguo/TSIS")
Once installed, TSIS package can be loaded as normal
library(TSIS)
To make the implement more user friendly, TSIS analysis is integrated into a Shiny App (a web application framework for R) (Chang, et al., 2016). By typing
TSIS.app()
in R console after loading TSIS package, the App is opened in the default web browser. Users can upload input datasets, set parameters for switch analysis, visualize and save the results as easy as mouse click. The Shiny App includes three tab panels (see Figure 2).
The first tab panel includes this user manual.
There are four sections in this panel.
Three types of information are required for TSIS analysis.
Figure 3 (A) shows the data input interface for time-series isoform expression and gene-isoform mapping. By clicking the “Browse…” button, a window is open for data loading (Figure 3(B)). Users can use the interface shown in Figure 3(C) to load the names of subset of isoforms. Please see the following data examples for data format details.
The TSIS package provides the example datasets “AtRTD2” with 300 genes and 766 isoforms, analysed in 26 time points, each with 3 biological replicates and 3 technical replicates. The experiments were designed to investigate the Arabidopsis gene expression response to cold. The isoform expression is in TPM (transcript per million) format. For the experiments and data quantification details, please see the AtRTD2 paper (Zhang, et al.,2016). Typing the following command to see data information.
##26 time points, 3 biological replicates and 3 technical replicates, in total 234 sample points.
library(TSIS)
AtRTD2$data.exp[1:10,1:3]
AtRTD2$mapping[1:10,]
AtRTD2$sub.isoforms[1:10]
Note: The data loaded into the Shiny App must be in *.csv format for loading convenience. Users can download the example datasets from https://github.com/wyguo/TSIS/tree/master/data or by typing the following codes:
AtRTD2.example()
The data will be saved in a folder “example data” in the working directory. Figure 4 shows the examples of input data in csv format.
This section is used to set the parameters for TSIS features. The parameters can be select or typing in corresponding boxes. Scoring process is starting by clicking the “Scoring” button. The parameter setting details are in the text followed the scoring button. Processing tacking bars for time-series intersection points searching (Figure 3(B)) and switch scoring (Figure 3(C)) for the isoform pairs will present in the bottom of the browser.
Figure 6 is the interface for scoring feature filtering. Users can set cut-offs, such as for the probability/frequency of switch and sum of average distances, to further refine the switch results. The parameter setting details are in the text under the “Filtering” button.
The isoform switches occur at different time points in the time-series. To visualize the frequency and density plot of switch time, TSIS Shiny App provides the plot interface as shown in Figure 7. Frequency and density bar plots and line plots, which correspond to the “x.value” of switch time column in the following output table, will present by clicking the corresponding radio buttons. The plot can be saved in html, pdf and png format.
Note: The plot is made by using plotly R package. Users can move the mouse around the plot to show plot values and select part of the plot to zoom out. More actions are available by using the tool bar in the top right corner of the plot.
Figure 7: Switch time density and frequency plot interface.
The output table of switch features after scoring or filtering. The columns include the information of isoform names, isoform ratios to genes, the intervals before and after switch, the coordinates of switch points and five features of switch quality. Table columns can be sorted by clicking the small triangles beside the column names and contexts can be searched by typing text in the search box. The explanations for each column are on the top of the table (see Figure 8).
Figure 8: The output score feature table.
This part is used to make a time-series plot of a pair of isoforms by providing their names. Plot type options are error bar plot and ribbon plot as shown in Figure 9 and example plots of AT5G60930 (see functions geom_errorbar and geom_smooth in ggplot2 package for details) package for details). An option is provided to only label the features of switch points with probability/frequency of switch>cut-off in the time region for investigation. The plots can be saved in html (plotly format plot), png or pdf format (see examples in Figure 9, Error bar plot and Ribbon plot).
This section is used to save top n (ranking with Feature 1 probability/frequency of switch) pairs of isoforms into png or pdf format plots (see Figure 10).
In addition to the Shiny App, users can use scripts to do TSIS analysis in R console. The following examples show a step-by-step tutorial of the analysis. Please refer to the function details using help function, e.g. help(iso.switch) or ?iso.switch.
##load the data
library(TSIS)
data.exp<-AtRTD2$data.exp
mapping<-AtRTD2$mapping
dim(data.exp);dim(mapping)
## [1] 766 234
## [1] 766 2
Example 1: search intersection points with mean expression
##Scores
scores.mean2int<-iso.switch(data.exp=data.exp,mapping =mapping,
t.start=1,t.end=26,nrep=9,rank=F,
min.t.points =2,min.distance=1,spline =F,spline.df = 9,verbose = F)
## Input genes: 300
## Genes with more than 2 isoforms: 300
## Average isoforms per gene for switch analysis: 2.553
## Step 1: Search for intersection points with Mean expression..
## 479 pairs of isoforms have intersection points.
## Step 2: Calculate scores for isoform switch
## Score 1: Switch frequencies/probabilities
## Score 2: Sum of average sample distances before and after switch.
## Score 3: P-values of sample differences before and after switch
## Score 4: Time points in each intervals
## Score 5: Pearson correlation of isoforms
## Time for analysis: 6.863 secs
## Done!!!
Example 2: search intersection points with spline method
##Scores, set spline=T and define spline degree of freedom to spline.df=9scores.spline2int<-iso.switch(data.exp=data.exp,mapping =mapping,
t.start=1,t.end=26,nrep=9,rank=F,
min.t.points =2,min.distance=1,spline =T,spline.df = 9,verbose = F)
Example 1, general filtering with cut-offs
##intersection from mean expression
scores.mean2int.filtered<-score.filter(scores = scores.mean2int,prob.cutoff = 0.5,dist.cutoff = 1,
t.points.cutoff = 2,pval.cutoff = 0.01, cor.cutoff = 0.5,
data.exp = NULL,mapping = NULL,sub.isoform.list = NULL,
sub.isoform = F,max.ratio = F,x.value.limit = c(9,17) )
scores.mean2int.filtered[1:5,]
## iso1 iso2 iso1.mean.ratio iso2.mean.ratio left.interval
## 1 AT1G07010_ID1 AT1G07010_P1 0.3444658 0.6555342 [1,10.4]
## 2 AT3G61600_P1 AT3G61600_P2 0.4587105 0.5412895 [1,9.7]
## 3 AT1G07010_ID1 AT1G07010_P1 0.3444658 0.6555342 (10.4,12.7]
## 4 AT5G27730_ID1 AT5G27730_P1 0.4650146 0.2606082 [1,10.4]
## 5 AT4G25080.1 AT4G25080.3 0.4249328 0.4579446 [1,10.6]
## right.invertal x.value y.value left.prob right.prob left.dist
## 1 (10.4,12.7] 10.384667 32.112522 1.0000000 1.0000000 -28.604855
## 2 (9.7,26] 9.699607 22.525101 1.0000000 0.9738562 18.251757
## 3 (12.7,26] 12.667896 73.588727 1.0000000 0.9523810 11.259083
## 4 (10.4,26] 10.371245 1.249807 0.9444444 1.0000000 -2.706725
## 5 (10.6,17.9] 10.620866 49.592087 0.9888889 0.9523810 -29.411702
## right.dist left.pval right.pval left.t.points right.t.points
## 1 11.259083 5.365298e-30 1.045041e-07 10 2
## 2 -15.069986 2.149216e-42 1.101754e-68 9 17
## 3 -35.449155 1.045041e-07 4.451268e-45 2 14
## 4 3.683429 1.455048e-21 1.352668e-56 10 16
## 5 9.995878 4.688194e-33 8.124810e-17 10 7
## prob dist cor
## 1 1.0000000 39.863939 0.5151262
## 2 0.9738562 33.321743 -0.7179305
## 3 0.9523810 46.708239 0.5151262
## 4 0.9444444 6.390154 -0.5209861
## 5 0.9412698 39.407580 0.9318253
##intersection from spline method
scores.spline2int.filtered<-score.filter(scores = scores.spline2int,prob.cutoff = 0.5,
dist.cutoff = 1,t.points.cutoff = 2,pval.cutoff = 0.01,
cor.cutoff = 0.5,data.exp = NULL,mapping = NULL,
sub.isoform.list = NULL,sub.isoform = F,max.ratio = F,
x.value.limit = c(9,17) )
Example 2, only show subset of results according to an isoform list
##intersection from mean expression
##input a list of isoform names for investigation.
sub.isoform.list<-AtRTD2$sub.isoforms
sub.isoform.list[1:10]
##assign the isoform name list to sub.isoform.list and set sub.isoform=TRUE
scores.mean2int.filtered.subset<-score.filter(scores = scores.mean2int,prob.cutoff = 0.5,dist.cutoff = 1,
t.points.cutoff = 2,pval.cutoff = 0.01, cor.cutoff = 0.5,
data.exp = NULL,mapping = NULL,sub.isoform.list = sub.isoform.list,
sub.isoform = T,max.ratio = F,x.value.limit = c(9,17) )
Example 3, only show results of isoforms of maximum ratios to genes
scores.mean2int.filtered.maxratio<-score.filter(scores = scores.mean2int,prob.cutoff = 0.5,dist.cutoff = 1,
t.points.cutoff = 2,pval.cutoff = 0.01, cor.cutoff = 0,
data.exp = data.exp,mapping = mapping,sub.isoform.list = NULL,
sub.isoform = F,max.ratio = T,x.value.limit = c(9,17) )
plotTSIS(data2plot = data.exp,scores = scores.mean2int.filtered,iso1 = 'AT5G60930_P2',
iso2 = ' AT5G60930_P3',gene.name = NULL,y.lab = 'Expression',make.plotly = F,
t.start = 1,t.end = 26,nrep = 9,prob.cutoff = 0.5,x.lower.boundary = 9,
x.upper.boundary = 17,show.region = T,show.scores = T,
line.width =0.5,point.size = 3,error.type = 'stderr',show.errorbar = T,errorbar.size = 0.5,
errorbar.width = 0.2,spline = F,spline.df = NULL,ribbon.plot = F )
plotTSIS(data2plot = data.exp,scores = scores.mean2int.filtered,iso1 = 'AT5G60930_P2',
iso2 = 'AT5G60930_P3',gene.name = NULL,y.lab = 'Expression',make.plotly = F,
t.start = 1,t.end = 26,nrep = 9,prob.cutoff = 0.5,x.lower.boundary = 9,
x.upper.boundary = 17,show.region = T,show.scores = T,error.type = 'stderr',
line.width =0.5,point.size = 3,show.errorbar = T,errorbar.size = 0.5,
errorbar.width = 0.2,spline = F,spline.df = NULL,ribbon.plot = T )
Chang, W., et al. 2016. shiny: Web Application Framework for R. https://CRAN.R-project.org/package=shiny
Sebestyen, E., Zawisza, M. and Eyras, E. Detection of recurrent alternative splicing switches in tumor samples reveals novel signatures of cancer. Nucleic Acids Res 2015;43(3):1345-1356.
Zhang, R., et al. AtRTD2: A Reference Transcript Dataset for accurate quantification of alternative splicing and expression changes in Arabidopsis thaliana RNA-seq data. bioRxiv 2016.
## R version 3.3.1 (2016-06-21)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 7 x64 (build 7601) Service Pack 1
##
## locale:
## [1] LC_COLLATE=English_United Kingdom.1252
## [2] LC_CTYPE=English_United Kingdom.1252
## [3] LC_MONETARY=English_United Kingdom.1252
## [4] LC_NUMERIC=C
## [5] LC_TIME=English_United Kingdom.1252
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] TSIS_0.1.0
##
## loaded via a namespace (and not attached):
## [1] Rcpp_0.12.9 lattice_0.20-33 codetools_0.2-14 gtools_3.5.0
## [5] zoo_1.7-13 digest_0.6.10 rprojroot_1.2 grid_3.3.1
## [9] backports_1.0.5 magrittr_1.5 evaluate_0.10 stringi_1.1.1
## [13] rmarkdown_1.3 tools_3.3.1 stringr_1.0.0 yaml_2.1.14
## [17] htmltools_0.3.5 knitr_1.15.1